Data Base of the Video Yearbook 1995/Data Base of the Video Yearbook 1995 - Disc 1.iso/cosmos/pack2.dir/00002.ls

Text File | 1995-12-30 | 588 b | 25 lines

on mouseDown
  set h to the locH of sprite clickOn()
  set v to the locV of sprite clickOn()
  repeat while the stillDown
    if rollOver(clickOn()) then
      set the locH of sprite clickOn() to h + 5
      set the locV of sprite clickOn() to v + 5
    else
      set the locH of sprite clickOn() to h
      set the locV of sprite clickOn() to v
    end if
    updateStage()
  end repeat
  set the locH of sprite clickOn() to h
  set the locV of sprite clickOn() to v
  updateStage()
end

on mouseUp
  global mkname, dname
  set dname to "PACK2"
  set mkname to "P"
  go(1, "PANIC")
end